home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / examples.arc / MAIN.PRO < prev    next >
Text File  |  1986-10-07  |  228b  |  12 lines
  1. project "myproj"
  2. include "globdef.pro"
  3. predicates
  4.   test
  5. goal
  6.   test.
  7. clauses
  8.   test:-clearwindow,
  9.         write("please write your name"),
  10.         nl,nl,nl,
  11.         readln(ThisName),nl,
  12.         welcome(ThisName).